home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #42 (1995-01)(PackMAN)(DE)[WB].zip / Purity #42 (1995-01)(PackMAN)(DE)[WB].adf / Includes3v1 / Includes3v1.lha / Workbench / Startup.i < prev    next >
Text File  |  1994-12-04  |  893b  |  30 lines
  1. {
  2.         Startup.i for PCQ Pascal
  3. }
  4.  
  5. {$I   "Include:Exec/Ports.i"}
  6. {$I   "Include:DOS/DOS.i"}
  7.  
  8. Type
  9.  
  10.     WBArg = record
  11.         wa_Lock         : Address;      { a lock descriptor }
  12.         wa_Name         : String;       { a string relative to that lock }
  13.     end;
  14.     WBArgPtr = ^WBArg;
  15.  
  16.     WBArgList = Array [1..100] of WBArg; { Only 1..smNumArgs are valid }
  17.     WBArgListPtr = ^WBArgList;
  18.  
  19.     WBStartup = record
  20.         sm_Message      : Message;      { a standard message structure }
  21.         sm_Process      : MsgPortPtr;   { the process descriptor for you }
  22.         sm_Segment      : BPTR;         { a descriptor for your code }
  23.         sm_NumArgs      : Integer;      { the number of elements in ArgList }
  24.         sm_ToolWindow   : String;       { description of window }
  25.         sm_ArgList      : WBArgListPtr; { the arguments themselves }
  26.     end;
  27.     WBStartupPtr = ^WBStartup;
  28.  
  29.  
  30.